home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #4 / Commodore_Disk_User_Vol.4_4_1991_-.d64 / gal'ic encounter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.1 KB  |  32 lines
  1. 5 if x=0 then 600
  2. 10 x=x+1:print""
  3. 20 on x goto 100,150,200,250,300
  4. 100 print"[147]";:m$="      [199]alactic [197]ncounter - [205]enu:        "
  5. 110 gosub 500
  6. 120 m$="   1. [212]he [199]ame...                       "
  7. 121 m$=m$+"                                        "
  8. 122 m$=m$+"   2. [213]tilities [196]emo...                 "
  9. 124 m$=m$+"   3. [197]xtra [201]nfo on [212]he [208]rograms...     "
  10. 130 gosub 500
  11. 132 m$=" >[208]ress 1-3 for your selection...       "
  12. 134 gosub 500:print"[145][145][145][145]";
  13. 140 get k$:if k$<"1" or k$>"3" then 140
  14. 143 on val(k$) goto 150,400,450
  15. 150 m$="            [211]prites  [204]oading.           "
  16. 160 gosub 500:load"ge.sprites",8,1
  17. 200 m$="          [205]achine [195]ode [204]oading.         "
  18. 210 gosub 500:load "ge.m/c",8,1
  19. 250 m$="              [198]ont [204]oading.             "
  20. 270 gosub 500:load"ge.font $7800",8,1
  21. 300 m$="           [194][193][211][201][195][160][199]ame [204]oading.          "
  22. 310 gosub 500:load "ge.basic game",8
  23. 400 m$="         [213]tilities [196]emo [204]oading.        "
  24. 410 gosub 500:load "ge.mc utils demo",8
  25. 450 m$="           [197]xtra [201]nfo [204]oading.          "
  26. 460 gosub 500:load "ge.extra info",8
  27. 500 print:print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  28. 510 poke646,15:print "";m$;
  29. 520 poke 646,11:print"[146][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][144]";
  30. 530 return
  31. 600 poke 46,52:poke45,0:clr:poke 53280,0:poke 53281,0:goto 10
  32.